(LAP FOO1 SUBR) 
	(PUSH P 1) 
	(CALL 1 (E H)) 
	(MOVE 2 1) 
	(POP P 1) 
	(JCALL 2 (E G)) 
	NIL 

(LAP FOO2 SUBR) 
	(PUSH P 1) 
	(CALL 1 (E H)) 
	(MOVE 2 1) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 2 (E G)) 
	NIL